1 FOR T=35 TO 90::CALL CHARPAT(T.A$)::FORI=1 TO 16::P$=SEG$(A$.I.1)::IF P$="8" THEN T$="C" ELSE IF P$="2" THEN T$="6" ELSE T$=P$
2 F$=F$&T$::NEXT I::CALL CHAR(T,F$)::F$=""::NEXT T::CALL SCREEN(15)::FOR X=1 TO 14::CALL COLOR(X.2.8.1.2.8.0.16.8)::NEXT X::ON WARNING STOP::INPUT DODO